﻿Imports System.Windows.Forms
Imports System.Data
Imports System.Data.OracleClient


Public Class Frm_Vehiculos
    Dim VectorDeDatos(4) As TextBox
    'conexion para inicializar la barra del navegador
    Dim conexion As String = "Driver={Microsoft ODBC for Oracle};Server=xe;Uid=redes;Pwd=redes;"

    'query para el dgv
    Dim querydgv As String = " select NO_UNIDAD as Unidad, PLACA_ as Matricula, TIPO as Vehiculo,  MARCA , MODELO from TB_LOT_VEHICULO order by no_unidad"

    'variable para llevar la secuencia en el campo ID
    Dim querysecuencia As String = "select max(NO_UNIDAD)+ 1 as NO_UNIDAD from TB_LOT_VEHICULO"
    Dim camposecuencia As String = "NO_UNIDAD"
   
    Public Function LlenarVector() As TextBox()
        VectorDeDatos(0) = TXTPLACA
        VectorDeDatos(1) = TXTTIPO
        VectorDeDatos(2) = TXTMARCA
        VectorDeDatos(3) = TXTMODELO
        VectorDeDatos(4) = TXTNOU
        Return VectorDeDatos
    End Function
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        VectorDeDatos = LlenarVector()
        BarraNavegacion1.Inicializar("Driver={Microsoft ODBC for Oracle};Server=xe;Uid=redes; Pwd=redes;", "TB_LOT_VEHICULO", VectorDeDatos)
        'para llevar la secuencia del codigo
        Dim temp As String = funciones.traersecuencia(querysecuencia, camposecuencia)
        'llenado del datagridview
        DGVEL.DataSource = funciones.LlenarDgv(querydgv)
        'puse esto de funciones.traersecuencia porque sino me lo tiraba como error entonces llame la clase general primero
        If temp = "" Then
            TXTNOU.Text = "1"
        Else
            TXTNOU.Text = temp
        End If
        
    End Sub

    Private Sub TXTNOU_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTNOU.TextChanged
        Dim temp As String = funciones.traersecuencia(querysecuencia, camposecuencia)
        If temp = "" Then
            TXTNOU.Text = "1"
        Else
            TXTNOU.Text = temp
        End If
    End Sub

  

End Class

